Form1 Cursor demo by Pierre Fillion Form1 Picture2 Picture1 Command4 Text1 +Test your hotspot here by selecting text... Command2 Restore Cursor Command1 Set Cursor Form_Load} GlobalLock GlobalUnLock CreateCursor hInstance nXhotspot5 nYhotspot Height lpANDbitPlanea lpXORbitPlaneg nWidth4 nHeightD DeclanreP GetWindowWord nIndexK SetClassWord nNewWord GetClassWord GCW_HCURSOR Command1_ClickL Handlet SetCursor= Form1 Picture1 fHandle Command2_Click RestoreCursor fOldCurHnd Form1hwnd FormHwndf Command3_Click/ GetCursorHotSpot GetHotSpot label1 caption Image1 Command4_Click Command2 Enabled Command1 Command3 Command4 Text1 lpbits\ CursorPic Control Form_LoadSub bitmap3 bmType bmWidthN bmHeight) bmWidthBytesD bmPlanes| bmBitsPixel bmBits previously created OldCursor correct color problem middle arrow- supposed white Montreal Quebec Picture" icon1 P1_Clickt P2_Click Picture1_Click Text1_Change P2i_Click Picture2 CtrlHandle8 Old cursor handle Command1_Click Retreive the handle of the control where the cursor will change Set the cursor and return the old cursor handle for restore cursor Only modify button state for democ Command2_Click Only modify button state for demo Command4_Click